home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CICA 1994 April
/
CICA Shareware for Windows CD-ROM (Walnut Creek CD-ROM)(April 1994).ISO
/
win3
/
misc
/
help30.exe
/
HLPDEF.SMM
< prev
next >
Wrap
INI File
|
1992-06-18
|
6KB
|
724 lines
[ver]
4
[sty]
[files]
[charset]
82
ANSI (Windows, IBM CP 1252)
[revisions]
0
[prn]
HP LaserJet III
[lang]
1
[desc]
Creates a definition button using the text you select.
708917915
22
695084368
44
1
0
0
0
0
0
[fopts]
0
1
0
0
[lnopts]
2
Body Text
1
[docopts]
5
2
[tag]
Body Text
2
[fnt]
TimesNewRomanPS
240
0
49152
[algn]
1
1
0
0
0
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Body Text
0
0
[tag]
Body Single
3
[fnt]
TimesNewRomanPS
240
0
49152
[algn]
1
1
0
0
0
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Body Single
0
0
[tag]
Bullet
4
[fnt]
TimesNewRomanPS
240
0
49152
[algn]
1
1
0
288
288
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
<*0>
360
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Bullet
0
0
[tag]
Bullet 1
5
[fnt]
TimesNewRomanPS
240
0
49152
[algn]
1
1
288
288
288
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
<*5>
0
1
1
0
0
0
0
[nfmt]
280
1
2
.
,
$
Bullet 1
0
0
[tag]
Number List
6
[fnt]
TimesNewRomanPS
240
0
49152
[algn]
1
1
360
360
360
[spc]
33
273
1
0
0
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
0
<*:>.
360
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Number List
0
0
[tag]
Subhead
7
[fnt]
TimesNewRomanPS
240
0
49155
[algn]
1
1
0
0
0
[spc]
33
273
1
72
72
1
100
[brk]
4
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
2
0
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Subhead
0
0
[tag]
Title
8
[fnt]
Arial MT
360
0
16385
[algn]
4
1
0
0
0
[spc]
33
446
1
144
72
1
100
[brk]
16
[line]
8
0
1
0
1
1
1
10
10
1
[spec]
0
1
0
1
1
0
0
0
0
[nfmt]
272
1
2
.
,
$
Title
0
0
[lay]
Standard
513
[rght]
15840
12240
1
1440
1440
1
1440
1440
0
1
0
1
0
2
1
1440
10800
12
1
720
1
1440
1
2160
1
2880
1
3600
1
4320
1
5040
1
5760
1
6480
1
7200
1
7920
1
8640
[hrght]
[lyfrm]
1
11200
0
0
12240
1440
0
1
3
1 0 0 0 0 0 0
0
0
1
[frmlay]
1440
12240
1
1440
72
1
792
1440
0
1
0
1
1
0
1
1440
10800
1
3
9360
[txt]
>
[frght]
[lyfrm]
1
13248
0
14400
12240
15840
0
1
3
1 0 0 0 0 0 0
0
0
2
[frmlay]
15840
12240
1
1440
792
1
14472
1440
0
1
0
1
1
0
1
1440
10800
2
2
4680
3
9360
[txt]
>
[elay]
[l1]
0
[pg]
1
38 0 12 1025 0 0 0 65535 65535 Standard 65535 0 0 0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0
[edoc]
<:#278,9360>' This macro creates a definition button using the text you select.
<:#278,9360>' It copies the selected text and pastes it immediately after the original text.
<:#278,9360>' It then capitalizes the definition button text, converts any spaces to underlines, protects the text,
<:#278,9360>' underlines the original text, and places the insertion point after the button text.
<:#278,9360>' NOTE: This macro assumes that the text you want to use is selected, and that the text matches
<:#278,9360>' the text in a Context footnote for a help topic. DO NOT double-click on a single word to select
<:#278,9360>' it because this selects both the word and the space after the word.
<:#278,9360>
<:#278,9360>function def()
<:#278,9360>declare stripit(name)
<:#278,9360>name = curshade$()
<:#278,9360>if name = ""
message("Select the text for the definition cross-reference and run this macro again.")
<:#278,9360> exit function
<:#278,9360>endif
<:#278,9360>underline()
<:#278,9360>type("<[>esc]")
<:#278,9360>protectedtext()
<:#278,9360>type(ucase$(stripit(name)))
<:#278,9360>specialeffects(256, "")
<:#278,9360>type("<[>esc]")
<:#278,9360>NormalText()
<:#278,9360>end function
<:#278,9360>
<:#278,9360>function stripit(name)
<:#278,9360>spos = 1
<:#278,9360>newname = ""
<:#278,9360>while (1)
<:#278,9360> txt = strfield$(name, spos, " ")
<:#278,9360> if txt = "" or txt = -1
<:#278,9360> break
<:#278,9360> endif
<:#278,9360> newname = strcat$(newname, "_", txt)
<:#278,9360> spos = spos + 1
<:#278,9360>wend
<:#278,9360>newname = right$(newname, (len(newname) - 1))
<:#278,9360>return newname
<:#278,9360>end function
>
[Embedded]
00005513
>
[macsum] 2
def 0 0 2 8
stripit 273 1 4 24
[macse]
14 def
0 24
13
8 1
6 1
7 ""
18 0
11 00000149
0 3 "Select the text for the definition cross-reference and run this macro again."
6 0
15
9
2 256 1
0 6 "[27]"
2 188 1
16 stripit "{1}"
13
0 18 [X]
13
0 6 [X]
2 258 1 256 ""
0 6 "[27]"
2 253 1
6 0
15
9
14 stripit
5 1
8 2
7 ""
8 3
5 1
11 00000211
0 20 "{0}" "{2}" " "
13
8 4
6 4
7 ""
18 0
6 4
5 -1
18 0
1 2
11 00000147
10 00000211
0 16 "{3}" "_" "{4}"
13
8 3
6 2
5 1
3 0
8 2
10 00000033
0 14 "{3}"
13
5 1
3 1
0 807 "{3}" [X]
13
8 3
6 3
15
9
6 1
15
9
00005538
